home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Tools / Useful / setprogname.e < prev    next >
Text File  |  1996-08-11  |  315b  |  16 lines
  1. OPT MODULE, PREPROCESS
  2. OPT EXPORT
  3.  
  4. MODULE 'dos/dos',
  5.        'dos/dosextens'
  6.  
  7. PROC setprogname(p:PTR TO LONG)
  8.   DEF cli:PTR TO commandlineinterface, bstr
  9.   IF p[]=NIL
  10.     IF cli:=Cli()
  11.       bstr:=BADDR(cli.commandname)
  12.       p[]:=String(bstr[])
  13.       IF p[] THEN StrCopy(p[],bstr+1,bstr[])
  14.     ENDIF
  15.   ENDIF
  16. ENDPROC